home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Tool Chest / Interfaces / MPW Interfaces / PInterfaces / Types.p < prev    next >
Encoding:
Text File  |  1993-09-17  |  2.2 KB  |  139 lines  |  [TEXT/MPS ]
  1. {
  2.     File:        Types.p
  3.  
  4.     Copyright:    © 1983-1993 by Apple Computer, Inc.
  5.                 All rights reserved.
  6.  
  7.     Version:    System 7.1 for ETO #11
  8.     Created:    Tuesday, March 30, 1993 18:00
  9.  
  10. }
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Types;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingTypes}
  22. {$SETC UsingTypes := 1}
  23.  
  24. {$IFC UNDEFINED SystemSevenOrLater}
  25. {$SETC SystemSevenOrLater := FALSE}
  26. {$ENDC}
  27.  
  28. {$IFC UNDEFINED SystemSixOrLater}
  29. {$SETC SystemSixOrLater := SystemSevenOrLater}
  30. {$ENDC}
  31.  
  32.  
  33.  
  34. CONST
  35. noErr = 0;                    {All is well}
  36.  
  37.  
  38.  
  39.  
  40. TYPE
  41. Byte = 0..255;                { unsigned byte for fontmgr }
  42. SignedByte = - 128..127;    { any byte in memory }
  43. Ptr = ^SignedByte;
  44. Handle = ^Ptr;                {  pointer to a master pointer }
  45.  
  46. {$IFC UNDEFINED qMacApp}
  47. IntegerPtr = ^INTEGER;
  48. LongIntPtr = ^LONGINT;
  49. {$ENDC}
  50.  
  51. Fixed = LONGINT;            { fixed point arithmatic type }
  52. FixedPtr = ^Fixed;
  53. Fract = LONGINT;
  54. FractPtr = ^Fract;
  55. {$IFC OPTION(MC68881)}
  56. Extended80 = ARRAY [0..4] OF INTEGER;
  57. {$ELSEC}
  58. Extended80 = EXTENDED;
  59. {$ENDC}
  60.  
  61. VHSelect = (v,h);
  62.  
  63.  
  64. ProcPtr = Ptr;                { pointer to a procedure }
  65.  
  66. StringPtr = ^Str255;
  67. StringHandle = ^StringPtr;
  68.  
  69. Str255 = String[255];        { maximum string size }
  70.  
  71. Str63 = String[63];
  72.  
  73. Str32 = String[32];
  74.  
  75. Str31 = String[31];
  76.  
  77. Str27 = String[27];
  78.  
  79. Str15 = String[15];
  80.  
  81.  
  82.  
  83. OSErr = INTEGER;            { error code }
  84. OSType = PACKED ARRAY [1..4] OF CHAR;
  85. OSTypePtr = ^OSType;
  86. ResType = PACKED ARRAY [1..4] OF CHAR;
  87. ResTypePtr = ^ResType;
  88. ScriptCode = INTEGER;
  89. LangCode = INTEGER;
  90.  
  91.  
  92. PointPtr = ^Point;
  93. Point = RECORD
  94.  CASE INTEGER OF
  95.    1:
  96.   (v: INTEGER;                 {vertical coordinate}
  97.   h: INTEGER);                 {horizontal coordinate}
  98.    2:
  99.   (vh: ARRAY[VHSelect] OF INTEGER);
  100.  END;
  101.  
  102. RectPtr = ^Rect;
  103. Rect = RECORD
  104.  CASE INTEGER OF
  105.    1:
  106.   (top: INTEGER;
  107.   left: INTEGER;
  108.   bottom: INTEGER;
  109.   right: INTEGER);
  110.    2:
  111.   (topLeft: Point;
  112.   botRight: Point);
  113.  END;
  114.  
  115. StyleItem = (bold,italic,underline,outline,shadow,condense,extend);
  116.  
  117. Style = SET OF StyleItem;
  118.  
  119.  
  120.  
  121. PROCEDURE Debugger;
  122.  INLINE $A9FF;
  123. PROCEDURE DebugStr(aStr: Str255);
  124.  INLINE $ABFF;
  125. PROCEDURE SysBreak;
  126.  INLINE $303C,$FE16,$A9C9;
  127. PROCEDURE SysBreakStr(debugStr: Str255);
  128.  INLINE $303C,$FE15,$A9C9;
  129. PROCEDURE SysBreakFunc(debugFunc: Str255);
  130.  INLINE $303C,$FE14,$A9C9;
  131.  
  132.  
  133. {$ENDC} { UsingTypes }
  134.  
  135. {$IFC NOT UsingIncludes}
  136.  END.
  137. {$ENDC}
  138.  
  139.